home *** CD-ROM | disk | FTP | other *** search
/ Maclife 12 / MACLIFE12-No-92-1996.ISO.7z / MACLIFE12-No-92.ISO / CD-ROM MACLIFE12 / NEWS AREA / Sampler V1.2 / BODY / shared.dir / 00702.ls < prev    next >
Encoding:
Text File  |  1995-12-27  |  637 b   |  25 lines
  1. on PCorMac eitherFN
  2.   if the machineType = 256 then
  3.     set type to "P"
  4.   else
  5.     set type to "M"
  6.   end if
  7.   put type into char length(eitherFN) - 4 of eitherFN
  8.   go("st", string(eitherFN))
  9. end
  10.  
  11. on GOER
  12.   global movielist
  13.   if getAt(movielist, count(movielist)) = (count(movielist) - 1) then
  14.     set movieName to getAt(movielist, 1)
  15.     setAt(movielist, count(movielist), 1)
  16.   else
  17.     set x to 1 + getAt(movielist, count(movielist))
  18.     setAt(movielist, count(movielist), x)
  19.     set movieName to getAt(movielist, x)
  20.   end if
  21.   set moviename2 to "@:" & chars(movieName, 2, length(movieName))
  22.   put moviename2
  23.   go("st", moviename2)
  24. end
  25.